Unit UnDmsensorTypeBeheer;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmSensorTypebeheer = interface(IAppServerSOAP)
    ['{A89CA42C-7E85-4120-A885-F7588C31FC06}']
  end;

  TDmSensorTypebeheer = class(TSoapDataModule, IDmSensorTypebeheer, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrSensorTypeBeheer: TADOQuery;
    PrvSensorTypebeheer: TDataSetProvider;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmSensorTypebeheerCreateInstance(out obj: TObject);
begin
 obj := TDmSensorTypebeheer.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmSensorTypebeheer, TDmSensorTypebeheerCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmSensorTypebeheer));
end.
